home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / fcbread.arc / FCBCREAT.BAS (.txt) next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.6 KB  |  55 lines
  1. 10  CLS
  2. 20  PRINT"This basic program was created by CONVERT.BAS"
  3. 30  KEY OFF
  4. 40  DEFINT A-Z
  5. 50  FALSE=0
  6. 60  TRUE=NOT FALSE
  7. 70  PRINT"Copyright 1983 ,Rich Schinnell Rockville,MD. Not for Sale."
  8. 80  PRINT "This program will create  you a program named FCBREAD.BSV"
  9. 90  PRINT
  10. 100  ON ERROR GOTO 500
  11. 110  INPUT "PLACE the disk to write the file TO in Drive A: Press <ENTER> ";CAPITAL$
  12. 120  CLS
  13. 130  LOCATE 12,5
  14. 140  PRINT "Now writing file named FCBREAD.BSV standby please  "
  15. 150  RESTORE
  16. 160  OPEN "R",#1,"FCBREAD.BSV",1
  17. 170  FIELD #1,1 AS N$
  18. 180  READ N
  19. 190  LL=(N/28)+1
  20. 200  FOR I=1 TO N
  21. 210  READ X$,CHECK
  22. 220  FOR C=1 TO LEN(X$) STEP 2
  23. 230  CC$="&H"+MID$(X$,C,2)
  24. 240  IF CHECK=9999 THEN 340
  25. 250  LSET N$=CHR$(VAL(CC$))
  26. 260  PUT #1
  27. 270  CHECK=CHECK-VAL(CC$)
  28. 280  NEXT C
  29. 290  IF CHECK<>0 THEN 500
  30. 300  LOCATE 14,5
  31. 310  PRINT TIME$;" Reading data line #";(1000+I);" lines left=";LL-I;
  32. 320  NEXT I
  33. 330  CLOSE
  34. 340  LOCATE 16,5
  35. 350  PRINT "FCBREAD.BSV CREATED * *"
  36. 360  GOTO 520
  37. 370  DATA  292
  38. 380  DATA FD001700001C012401EB3590EB6490FF00000000003F000000000000,1571
  39. 390  DATA 00000000000000000000000000000000000000000000000000000000,0
  40. 400  DATA 0000000000000000558BEC1E8CC88ED833F6268B5E06268B5F01268A,2211
  41. 410  DATA 00888410004683FE0B7CF38B7608268B04A20F0032C0A238001F5DCA,2526
  42. 420  DATA 0400558BEC1E8CC88ED8FA892636008C1634008ED0BCCC01FBBA1D01,3095
  43. 430  DATA B41ACD21BA0800803E3800007508FE063800B411EB02B412CD213C00,2255
  44. 440  DATA 7560268B5E0826803F0E7551268B5F0133FF8BF78BCFB06002062401,2561
  45. 450  DATA 2688014726C6013A478A8425013C20740626880147EB0C80F9007507,2128
  46. 460  DATA FEC126C6012E474683FE08750C80F9007507FEC126C6012E4783FE0B,3091
  47. 470  DATA 7CCFA0300132E4EB03B8FFFFEB03B8FEFF268B5E06268907FA8E1634,3606
  48. 480  DATA 008B263600FB1F5DCA04001A,838
  49. 490  DATA 000000,9999
  50. 500  PRINT "* * ERROR VERIFY FOLLOWING DATA * * * "
  51. 510  PRINT X$;",";CHECK
  52. 520  KEY ON
  53. 530  CLOSE
  54. 540  END
  55.